mode_setup;
beginchar(50,10pt#,7pt#,2pt#);
pair center; center=(.5w,2pt);
numeric radius; radius=5pt;
for k=0 upto 4: z[k]=center+(radius,0) rotated(90+360/5k); endfor
def :: = ..tension 5.. enddef;
path star; star=z0::z2::z4::z1::z3::cycle;
pickup pencircle scaled .4pt;
draw star; showit;
cullit; pickup pencircle scaled .8pt;
for k=0 upto 4: undraw subpath(k+.5,k+.7) of star; endfor
showit; stop "b";
cullit; pickup pencircle scaled .4pt;
for k=0 upto 4: draw subpath(k+.45,k+.75) of star; endfor
labels(0,1,2,3,4); endchar; stop "zero";
clearit; fill star; showit; stop "one";
cull currentpicture by (-1,2); showit; stop "two";
end